home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / mailmen.arc / MAILED.PRG < prev    next >
Encoding:
Text File  |  1991-01-10  |  4.0 KB  |  158 lines
  1. * MAILED.PRG - PROGRAM FOR EDITING MAILIST FILES
  2. * COPYRIGHT NOVEMBER 14, 1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. POKE 1047,10
  5. STORE T TO ED
  6. DO WHILE ED
  7. STORE T TO DULY
  8. DO WHILE DULY
  9. ERASE
  10. USE MAIL
  11. ? "YOU CAN LOCATE THE FILE BY THE INDIVIDUAL'S NAME OR COMPANY NAME"
  12. ?
  13. ?
  14. ?
  15. ACCEPT "ENTER LAST NAME" TO NAME
  16. ?
  17. ?
  18. ?
  19. ACCEPT "ENTER FIRST NAME" TO NAME1
  20. ?
  21. ?
  22. ?
  23. ACCEPT "ENTER COMPANY NAME" TO COMP
  24. STORE !(NAME) TO NAME
  25. STORE !(NAME1) TO NAME1
  26. STORE !(COMP) TO COMP
  27. IF COMP =  ' ' .AND. NAME <> ' '
  28.      USE MAIL INDEX LAST
  29.      FIND &NAME
  30.      IF # <> 0
  31.           STORE 1 TO REC
  32.           STORE F TO DULY
  33.      ELSE
  34.           STORE 0 TO REC
  35.           STORE F TO DULY
  36.      ENDIF
  37.      DO WHILE LAST = NAME .AND. NAME1 <> ' ' .AND. !(FIRST) <> NAME1
  38.           SKIP
  39.      ENDDO
  40. ELSE
  41. IF NAME =  ' ' .AND. COMP <> ' '
  42.      USE MAIL INDEX COMP
  43.      FIND &COMP
  44.      IF # <> 0
  45.           STORE 1 TO REC
  46.           STORE F TO DULY
  47.      ELSE
  48.           STORE 0 TO REC
  49.           STORE F TO DULY
  50.      ENDIF
  51. ENDIF
  52. ENDIF
  53. ENDDO
  54. IF REC = 0
  55. ERASE
  56. STORE ' ' TO ANS3
  57. @ 10,5 SAY "Record Cannot Be Found."
  58. @ 12,5 say "Press 'N' to Return to the Menu"
  59. @ 14,5 SAY "Press Any Other Key to Try Again."
  60. @ 14,70 get ANS3
  61. READ
  62. CLEAR GETS
  63. IF !(ANS3) = 'N'
  64.      STORE F TO ED
  65.      STORE F TO DULY
  66.      RETURN
  67. ELSE
  68.      STORE T TO DULY
  69.      STORE ' ' TO ANS
  70. ENDIF
  71. ENDIF
  72. do while REC = 1
  73. STORE ' ' TO ANS
  74. ERASE
  75. @ 1,1 SAY 'Company' get company
  76. @ 3,1 say 'Name'
  77. @ 3,5 get LAST
  78. @ 3,27 GET FIRST
  79. @ 4,1 GET ADDR1
  80. @ 4,40 SAY 'Office Tel.' GET TEL:WRK
  81. @ 5,1 GET ADDR2
  82. @ 5,40 SAY 'Home Tel.' GET TEL:HM
  83. @ 6,1 GET CITY
  84. @ 6,27 GET STATE
  85. @ 6,31 GET ZIP
  86. @ 8,1 SAY 'Birthday' GET BIRTHDAY
  87. @ 8,20 SAY 'Friend' get friend
  88. @ 8,30 say 'Business' get bus:xmas
  89. @ 10,1 say 'Priority 1' get prof1
  90. @ 11,1 say 'Priority 2' get prof2
  91. @ 12,1 say 'Priority 3' get prof3
  92. @ 14,1 say 'Comments'
  93. @ 14,11 get mcom1
  94. @ 15,11 get mcom2
  95. ?
  96. ? "+-------------------------------------------------------------------------+"
  97. ? "| SELECT:  E> Edit this Record        D> Delete this Record               |"
  98. ? "|          N> To Return to Menu       R> Review other Records             |"
  99. ? "+-------------------------------------------------------------------------+"
  100. ?
  101. WAIT TO ANS
  102. IF !(ANS) <> 'E' .AND. !(ANS) <> 'D' .AND. !(ANS) <> 'N' .AND. !(ANS) <> 'R'
  103. ERASE
  104. LOOP
  105. ELSE
  106. IF !(ANS) = 'E'
  107. ? "PRESS CONTROL W '^W' OR THE ENTER KEY TO REACH THE BOTTOM OF PAGE AND "
  108. ?                 "COMPLETE EDITING"
  109. READ
  110. STORE 0 TO REC
  111. ELSE
  112. IF !(ANS) = 'D'
  113. ERASE
  114. ? "ARE YOU SURE ABOUT THAT (Y OR N) ?"
  115. ?
  116. ?
  117. ?
  118. ?
  119. WAIT TO SURE
  120.      IF !(SURE) = 'Y'
  121.           DELETE
  122.           PACK
  123.           STORE 0 TO REC
  124.      ELSE
  125.           STORE 0 TO REC
  126.      ENDIF
  127. ELSE
  128. IF !(ANS) = 'N'
  129.      STORE 0 TO REC
  130.      STORE F TO ED
  131.      ERASE
  132.      RETURN
  133. ELSE
  134. IF !(ANS) = 'R'
  135.      STORE 0 TO REC
  136. ENDIF
  137. ENDIF
  138. ENDIF
  139. ENDIF
  140. ENDDO
  141. ERASE
  142. IF !(ANS) = 'D' .OR. !(ANS) = 'E'
  143. store ' ' to ans1
  144. @ 10,5 SAY "Press 'N' to Return to The Menu"
  145. @ 12,5 Say "Press Any Other Key To Continue Editing"
  146. @ 12,60 get ans1
  147. read
  148. clear gets
  149. if !(ans1) = 'N'
  150.      store f to ed
  151.      erase
  152.      return
  153. else
  154. erase
  155. ENDIF
  156. endif
  157. ENDDO
  158.                                                                                                                      VINCENT TROCCHIA AIA          VINCENT             TROCCHIA            50 WEST 29TH STREET                                         NYC                                                                     VINCENT TROCCHIA AIA          VINCENT             TROCCHIA            50 WEST 29TH STREET                                         NYC